home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / KeyGen.Only.Nitrus.Crackme.#1.By.Magenta.source < prev    next >
Encoding:
Text File  |  1999-09-09  |  571 b   |  21 lines
  1. PRINT "####################################################"
  2. PRINT "# Program: Crackme #1 By Magenta                   #"
  3. PRINT "# Cracker: Nitrus                                  #"
  4. PRINT "####################################################"
  5. PRINT
  6. LINE INPUT ; "Name: ", UserName$
  7. IF LEN(UserName$) >= 1 THEN
  8. FOR Counter% = 1 TO LEN(UserName$)
  9. Char% = (ASC(MID$(UserName$, Counter%, 1)) + 1)
  10. Serial$ = Serial$ + CHR$(Char%)
  11. NEXT Counter%
  12. PRINT
  13. PRINT "Your serial is: "; LTRIM$(Serial$)
  14. ELSE
  15. PRINT
  16. PRINT "It would help if I had your name!"
  17. END IF
  18.  
  19.  
  20.  
  21.